home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / sticks_ext / sticks-demos / MouseZones.AMOS / MouseZones.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-02-26  |  762 b   |  38 lines
  1. Dim TX(10),TY(10),BX(10),BY(10)
  2. Screen Open 0,640,256,8,Hires
  3. Palette $0,$F44,$A0,$AA,$A00,$A0A,$FF0,$286
  4. Flash Off : Curs Off : Hide On 
  5. Wait Vbl 
  6.  Extension_17_0116 0
  7. Cls 0
  8. Reserve Zone 8
  9. Pen 1 : Paper 0 : Centre "A simple mouse area demo"
  10. For A=1 To 7
  11. Read P,X,Y,X1,Y1
  12. Ink P
  13. Set Zone A,X,Y To X1,Y1
  14. Box X,Y To X1,Y1
  15. Next A
  16. Do 
  17. MX= Extension_17_00DA(0) : MY= Extension_17_00F4(0)
  18. MA= Extension_17_0132(0)
  19. Sprite 1,MX,MY,1
  20. Home : Print : Centre "Mouse Area "+Str$(MA)
  21. Wait Vbl 
  22. If MA>0 and( Extension_17_011E(0)=1)
  23. Restore _BOXES
  24. For A=1 To MA
  25. Read P,X,Y,X1,Y1
  26. Next A
  27. Ink P
  28. Bar X,Y To X1,Y1
  29. End If 
  30. Loop 
  31. _BOXES:
  32. Data 1,0,0,215,91
  33. Data 2,130,72,354,176
  34. Data 3,31,158,257,255
  35. Data 4,308,95,547,160
  36. Data 5,479,146,639,255
  37. Data 6,501,11,639,80
  38. Data 7,439,5,536,116